home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / predlib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  43.3 KB  |  2,334 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "predlib.h"
  4. init_predlib(){do_init(VV);}
  5. /*    macro definition for DEFTYPE    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     base[2]= (V1->c.c_car);
  16.     V1=V1->c.c_cdr;
  17.     if(endp(V1))invalid_macro_call();
  18.     base[3]= (V1->c.c_car);
  19.     V1=V1->c.c_cdr;
  20.     base[4]= V1;}
  21.     {register object V2;
  22.     register object V3;
  23.     V2= base[3];
  24.     V3= Cnil;
  25. T3:;
  26.     if(((V2))!=Cnil){
  27.     goto T4;}
  28.     goto T1;
  29. T4:;
  30.     {register object x= car((V2)),V4= VV[0];
  31.     while(!endp(V4))
  32.     if(eql(x,V4->c.c_car)){
  33.     goto T10;
  34.     }else V4=V4->c.c_cdr;
  35.     goto T8;}
  36. T10:;
  37.     if((car((V2)))==(VV[1])){
  38.     goto T11;}
  39.     goto T1;
  40. T11:;
  41.     V3= make_cons(VV[1],(V3));
  42.     V2= cdr((V2));
  43. T20:;
  44.     if(((V2))==Cnil){
  45.     goto T22;}
  46.     {register object x= car((V2)),V5= VV[0];
  47.     while(!endp(V5))
  48.     if(eql(x,V5->c.c_car)){
  49.     goto T25;
  50.     }else V5=V5->c.c_cdr;
  51.     goto T21;}
  52. T25:;
  53. T22:;
  54.     goto T18;
  55. T21:;
  56.     if(!(type_of(car((V2)))==t_symbol)){
  57.     goto T29;}
  58.     V6= list(2,car((V2)),VV[2]);
  59.     V3= make_cons(/* INLINE-ARGS */V6,(V3));
  60.     goto T27;
  61. T29:;
  62.     V3= make_cons(car((V2)),(V3));
  63. T27:;
  64.     V2= cdr((V2));
  65.     goto T20;
  66. T18:;
  67.     base[5]= (V3);
  68.     base[6]= (V2);
  69.     vs_top=(vs_base=base+5)+2;
  70.     Lreconc();
  71.     vs_top=sup;
  72.     base[3]= vs_base[0];
  73.     goto T1;
  74. T8:;
  75.     {object V7;
  76.     V7= cdr((V2));
  77.     V3= make_cons(car((V2)),(V3));
  78.     V2= (V7);}
  79.     goto T3;}
  80. T1:;
  81.     V8= list(2,VV[6],base[2]);
  82.     V9= list(4,VV[5],/* INLINE-ARGS */V8,list(2,VV[6],listA(4,VV[7],base[2],base[3],base[4])),VV[8]);
  83.     V10= list(2,VV[6],base[2]);
  84.     V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]);
  85.     V12= list(2,VV[6],base[2]);
  86.     V13= (*(LnkLI71))(base[4]);
  87.     V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]);
  88.     base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2]));
  89.     vs_top=(vs_base=base+5)+1;
  90.     return;
  91. }
  92. /*    function definition for G1054    */
  93.  
  94. static L2()
  95. {register object *base=vs_base;
  96.     register object *sup=base+VM2; VC2
  97.     vs_reserve(VM2);
  98.     check_arg(0);
  99.     vs_top=sup;
  100. TTL:;
  101.     base[0]= list(3,VV[13],VV[14],VV[15]);
  102.     vs_top=(vs_base=base+0)+1;
  103.     return;
  104. }
  105. /*    function definition for G1055    */
  106.  
  107. static L3()
  108. {register object *base=vs_base;
  109.     register object *sup=base+VM3; VC3
  110.     vs_reserve(VM3);
  111.     check_arg(0);
  112.     vs_top=sup;
  113. TTL:;
  114.     base[0]= VV[16];
  115.     vs_top=(vs_base=base+0)+1;
  116.     return;
  117. }
  118. /*    function definition for G1056    */
  119.  
  120. static L4()
  121. {register object *base=vs_base;
  122.     register object *sup=base+VM4; VC4
  123.     vs_reserve(VM4);
  124.     {object V15;
  125.     check_arg(1);
  126.     V15=(base[0]);
  127.     vs_top=sup;
  128. TTL:;
  129.     base[1]= list(3,VV[13],small_fixnum(0),one_minus((V15)));
  130.     vs_top=(vs_base=base+1)+1;
  131.     return;
  132.     }
  133. }
  134. /*    function definition for G1057    */
  135.  
  136. static L5()
  137. {register object *base=vs_base;
  138.     register object *sup=base+VM5; VC5
  139.     vs_reserve(VM5);
  140.     {object V16;
  141.     if(vs_top-vs_base>1) too_many_arguments();
  142.     if(vs_base>=vs_top){vs_top=sup;goto T45;}
  143.     V16=(base[0]);
  144.     vs_top=sup;
  145.     goto T46;
  146. T45:;
  147.     V16= VV[17];
  148. T46:;
  149.     if(!(((V16))==(VV[17]))){
  150.     goto T49;}
  151.     base[1]= VV[18];
  152.     vs_top=(vs_base=base+1)+1;
  153.     return;
  154. T49:;
  155.     V17= one_minus((V16));
  156.     V18= number_expt(small_fixnum(2),/* INLINE-ARGS */V17);
  157.     V19= number_negate(/* INLINE-ARGS */V18);
  158.     V20= one_minus((V16));
  159.     V21= number_expt(small_fixnum(2),/* INLINE-ARGS */V20);
  160.     base[1]= list(3,VV[13],/* INLINE-ARGS */V19,one_minus(/* INLINE-ARGS */V21));
  161.     vs_top=(vs_base=base+1)+1;
  162.     return;
  163.     }
  164. }
  165. /*    function definition for G1058    */
  166.  
  167. static L6()
  168. {register object *base=vs_base;
  169.     register object *sup=base+VM6; VC6
  170.     vs_reserve(VM6);
  171.     {object V22;
  172.     if(vs_top-vs_base>1) too_many_arguments();
  173.     if(vs_base>=vs_top){vs_top=sup;goto T51;}
  174.     V22=(base[0]);
  175.     vs_top=sup;
  176.     goto T52;
  177. T51:;
  178.     V22= VV[17];
  179. T52:;
  180.     if(!(((V22))==(VV[17]))){
  181.     goto T55;}
  182.     base[1]= VV[19];
  183.     vs_top=(vs_base=base+1)+1;
  184.     return;
  185. T55:;
  186.     V23= number_expt(small_fixnum(2),(V22));
  187.     base[1]= list(3,VV[13],small_fixnum(0),one_minus(/* INLINE-ARGS */V23));
  188.     vs_top=(vs_base=base+1)+1;
  189.     return;
  190.     }
  191. }
  192. /*    function definition for G1059    */
  193.  
  194. static L7()
  195. {register object *base=vs_base;
  196.     register object *sup=base+VM7; VC7
  197.     vs_reserve(VM7);
  198.     check_arg(0);
  199.     vs_top=sup;
  200. TTL:;
  201.     base[0]= list(2,VV[20],small_fixnum(8));
  202.     vs_top=(vs_base=base+0)+1;
  203.     return;
  204. }
  205. /*    function definition for G1060    */
  206.  
  207. static L8()
  208. {register object *base=vs_base;
  209.     register object *sup=base+VM8; VC8
  210.     vs_reserve(VM8);
  211.     check_arg(0);
  212.     vs_top=sup;
  213. TTL:;
  214.     base[0]= list(2,VV[21],small_fixnum(8));
  215.     vs_top=(vs_base=base+0)+1;
  216.     return;
  217. }
  218. /*    function definition for G1061    */
  219.  
  220. static L9()
  221. {register object *base=vs_base;
  222.     register object *sup=base+VM9; VC9
  223.     vs_reserve(VM9);
  224.     check_arg(0);
  225.     vs_top=sup;
  226. TTL:;
  227.     base[0]= list(2,VV[20],small_fixnum(16));
  228.     vs_top=(vs_base=base+0)+1;
  229.     return;
  230. }
  231. /*    function definition for G1062    */
  232.  
  233. static L10()
  234. {register object *base=vs_base;
  235.     register object *sup=base+VM10; VC10
  236.     vs_reserve(VM10);
  237.     check_arg(0);
  238.     vs_top=sup;
  239. TTL:;
  240.     base[0]= list(2,VV[21],small_fixnum(16));
  241.     vs_top=(vs_base=base+0)+1;
  242.     return;
  243. }
  244. /*    function definition for G1063    */
  245.  
  246. static L11()
  247. {register object *base=vs_base;
  248.     register object *sup=base+VM11; VC11
  249.     vs_reserve(VM11);
  250.     {object V24;
  251.     object V25;
  252.     if(vs_top-vs_base>2) too_many_arguments();
  253.     if(vs_base>=vs_top){vs_top=sup;goto T57;}
  254.     V24=(base[0]);
  255.     vs_base++;
  256.     if(vs_base>=vs_top){vs_top=sup;goto T58;}
  257.     V25=(base[1]);
  258.     vs_top=sup;
  259.     goto T59;
  260. T57:;
  261.     V24= VV[17];
  262. T58:;
  263.     V25= VV[17];
  264. T59:;
  265.     base[2]= list(3,VV[22],(V24),make_cons((V25),Cnil));
  266.     vs_top=(vs_base=base+2)+1;
  267.     return;
  268.     }
  269. }
  270. /*    function definition for G1064    */
  271.  
  272. static L12()
  273. {register object *base=vs_base;
  274.     register object *sup=base+VM12; VC12
  275.     vs_reserve(VM12);
  276.     {object V26;
  277.     if(vs_top-vs_base>1) too_many_arguments();
  278.     if(vs_base>=vs_top){vs_top=sup;goto T62;}
  279.     V26=(base[0]);
  280.     vs_top=sup;
  281.     goto T63;
  282. T62:;
  283.     V26= VV[17];
  284. T63:;
  285.     base[1]= list(3,VV[23],VV[24],(V26));
  286.     vs_top=(vs_base=base+1)+1;
  287.     return;
  288.     }
  289. }
  290. /*    function definition for G1065    */
  291.  
  292. static L13()
  293. {register object *base=vs_base;
  294.     register object *sup=base+VM13; VC13
  295.     vs_reserve(VM13);
  296.     {object V27;
  297.     if(vs_top-vs_base>1) too_many_arguments();
  298.     if(vs_base>=vs_top){vs_top=sup;goto T65;}
  299.     V27=(base[0]);
  300.     vs_top=sup;
  301.     goto T66;
  302. T65:;
  303.     V27= VV[17];
  304. T66:;
  305.     base[1]= list(3,VV[23],VV[25],(V27));
  306.     vs_top=(vs_base=base+1)+1;
  307.     return;
  308.     }
  309. }
  310. /*    function definition for G1066    */
  311.  
  312. static L14()
  313. {register object *base=vs_base;
  314.     register object *sup=base+VM14; VC14
  315.     vs_reserve(VM14);
  316.     {object V28;
  317.     if(vs_top-vs_base>1) too_many_arguments();
  318.     if(vs_base>=vs_top){vs_top=sup;goto T68;}
  319.     V28=(base[0]);
  320.     vs_top=sup;
  321.     goto T69;
  322. T68:;
  323.     V28= VV[17];
  324. T69:;
  325.     base[1]= list(3,VV[26],Ct,make_cons((V28),Cnil));
  326.     vs_top=(vs_base=base+1)+1;
  327.     return;
  328.     }
  329. }
  330. /*    function definition for G1067    */
  331.  
  332. static L15()
  333. {register object *base=vs_base;
  334.     register object *sup=base+VM15; VC15
  335.     vs_reserve(VM15);
  336.     {object V29;
  337.     if(vs_top-vs_base>1) too_many_arguments();
  338.     if(vs_base>=vs_top){vs_top=sup;goto T71;}
  339.     V29=(base[0]);
  340.     vs_top=sup;
  341.     goto T72;
  342. T71:;
  343.     V29= VV[17];
  344. T72:;
  345.     base[1]= list(3,VV[26],VV[24],make_cons((V29),Cnil));
  346.     vs_top=(vs_base=base+1)+1;
  347.     return;
  348.     }
  349. }
  350. /*    function definition for G1068    */
  351.  
  352. static L16()
  353. {register object *base=vs_base;
  354.     register object *sup=base+VM16; VC16
  355.     vs_reserve(VM16);
  356.     {object V30;
  357.     if(vs_top-vs_base>1) too_many_arguments();
  358.     if(vs_base>=vs_top){vs_top=sup;goto T74;}
  359.     V30=(base[0]);
  360.     vs_top=sup;
  361.     goto T75;
  362. T74:;
  363.     V30= VV[17];
  364. T75:;
  365.     base[1]= list(3,VV[26],VV[25],make_cons((V30),Cnil));
  366.     vs_top=(vs_base=base+1)+1;
  367.     return;
  368.     }
  369. }
  370. /*    local entry for function SIMPLE-ARRAY-P    */
  371.  
  372. static object LI17(V32)
  373.  
  374. register object V32;
  375. {     VMB17 VMS17 VMV17
  376. TTL:;
  377.     if(type_of((V32))==t_array||
  378. type_of((V32))==t_vector||
  379. type_of((V32))==t_string||
  380. type_of((V32))==t_bitvector){
  381.     goto T77;}
  382.     {object V33 = Cnil;
  383.     VMR17(V33)}
  384. T77:;
  385.     base[0]= (V32);
  386.     vs_top=(vs_base=base+0)+1;
  387.     Ladjustable_array_p();
  388.     vs_top=sup;
  389.     V34= vs_base[0];
  390.     if((V34)==Cnil){
  391.     goto T79;}
  392.     {object V35 = Cnil;
  393.     VMR17(V35)}
  394. T79:;
  395.     base[0]= (V32);
  396.     vs_top=(vs_base=base+0)+1;
  397.     (void) (*Lnk72)();
  398.     vs_top=sup;
  399.     V36= vs_base[0];
  400.     if((V36)==Cnil){
  401.     goto T83;}
  402.     {object V37 = Cnil;
  403.     VMR17(V37)}
  404. T83:;
  405.     base[0]= (V32);
  406.     vs_top=(vs_base=base+0)+1;
  407.     siLdisplaced_array_p();
  408.     vs_top=sup;
  409.     V38= vs_base[0];
  410.     {object V39 = ((V38)==Cnil?Ct:Cnil);
  411.     VMR17(V39)}
  412. }
  413. /*    function definition for TYPEP    */
  414.  
  415. static L18()
  416. {register object *base=vs_base;
  417.     register object *sup=base+VM18; VC18
  418.     vs_reserve(VM18);
  419.     {register object V40;
  420.     register object V41;
  421.     check_arg(2);
  422.     V40=(base[0]);
  423.     V41=(base[1]);
  424.     vs_top=sup;
  425. TTL:;
  426.     {register object V42;
  427.     register object V43;
  428.     object V44;
  429.     V42= Cnil;
  430.     V43= Cnil;
  431.     V44= Cnil;
  432.     if(!(type_of((V41))!=t_cons)){
  433.     goto T94;}
  434.     V42= (V41);
  435.     V43= Cnil;
  436.     goto T92;
  437. T94:;
  438.     V42= car((V41));
  439.     V43= cdr((V41));
  440. T92:;
  441.     {object V45;
  442.     V45= get((V42),VV[27],Cnil);
  443.     if(((V45))==Cnil){
  444.     goto T102;}
  445.     base[2]= (V40);
  446.     vs_top=(vs_base=base+2)+1;
  447.     super_funcall_no_event((V45));
  448.     return;}
  449. T102:;
  450.     {object V46= (V42);
  451.     if((V46!= VV[36]))goto T107;
  452.     {register object x= (V40),V47= (V43);
  453.     while(!endp(V47))
  454.     if(eql(x,V47->c.c_car)){
  455.     base[2]= V47;
  456.     vs_top=(vs_base=base+2)+1;
  457.     return;
  458.     }else V47=V47->c.c_cdr;
  459.     base[2]= Cnil;
  460.     vs_top=(vs_base=base+2)+1;
  461.     return;}
  462. T107:;
  463.     if((V46!= VV[39]))goto T108;
  464.     base[2]= (V40);
  465.     base[3]= car((V43));
  466.     vs_top=(vs_base=base+2)+2;
  467.     (void) (*Lnk73)();
  468.     vs_top=sup;
  469.     V48= vs_base[0];
  470.     base[2]= ((V48)==Cnil?Ct:Cnil);
  471.     vs_top=(vs_base=base+2)+1;
  472.     return;
  473. T108:;
  474.     if((V46!= VV[37]))goto T112;
  475.     {register object V49;
  476.     V49= (V43);
  477. T114:;
  478.     if(((V49))!=Cnil){
  479.     goto T115;}
  480.     base[2]= Cnil;
  481.     vs_top=(vs_base=base+2)+1;
  482.     return;
  483. T115:;
  484.     base[2]= (V40);
  485.     base[3]= car((V49));
  486.     vs_top=(vs_base=base+2)+2;
  487.     (void) (*Lnk73)();
  488.     vs_top=sup;
  489.     if((vs_base[0])==Cnil){
  490.     goto T119;}
  491.     base[2]= Ct;
  492.     vs_top=(vs_base=base+2)+1;
  493.     return;
  494. T119:;
  495.     V49= cdr((V49));
  496.     goto T114;}
  497. T112:;
  498.     if((V46!= VV[38]))goto T127;
  499.     {register object V50;
  500.     V50= (V43);
  501. T129:;
  502.     if(((V50))!=Cnil){
  503.     goto T130;}
  504.     base[2]= Ct;
  505.     vs_top=(vs_base=base+2)+1;
  506.     return;
  507. T130:;
  508.     base[2]= (V40);
  509.     base[3]= car((V50));
  510.     vs_top=(vs_base=base+2)+2;
  511.     (void) (*Lnk73)();
  512.     vs_top=sup;
  513.     if((vs_base[0])!=Cnil){
  514.     goto T134;}
  515.     base[2]= Cnil;
  516.     vs_top=(vs_base=base+2)+1;
  517.     return;
  518. T134:;
  519.     V50= cdr((V50));
  520.     goto T129;}
  521. T127:;
  522.     if((V46!= VV[74]))goto T142;
  523.     base[2]= car((V43));
  524.     base[3]= (V40);
  525.     vs_top=(vs_base=base+3)+1;
  526.     super_funcall_no_event(base[2]);
  527.     return;
  528. T142:;
  529.     if((V46!= Ct))goto T145;
  530.     base[2]= Ct;
  531.     vs_top=(vs_base=base+2)+1;
  532.     return;
  533. T145:;
  534.     if((V46!= Cnil))goto T146;
  535.     base[2]= Cnil;
  536.     vs_top=(vs_base=base+2)+1;
  537.     return;
  538. T146:;
  539.     if((V46!= VV[28]))goto T147;
  540.     base[2]= (V40);
  541.     vs_top=(vs_base=base+2)+1;
  542.     Ltype_of();
  543.     vs_top=sup;
  544.     V51= vs_base[0];
  545.     base[2]= ((V51)==(VV[28])?Ct:Cnil);
  546.     vs_top=(vs_base=base+2)+1;
  547.     return;
  548. T147:;
  549.     if((V46!= VV[29]))goto T150;
  550.     base[2]= (V40);
  551.     vs_top=(vs_base=base+2)+1;
  552.     Ltype_of();
  553.     vs_top=sup;
  554.     V52= vs_base[0];
  555.     base[2]= ((V52)==(VV[29])?Ct:Cnil);
  556.     vs_top=(vs_base=base+2)+1;
  557.     return;
  558. T150:;
  559.     if((V46!= VV[30]))goto T153;
  560.     base[2]= (V40);
  561.     vs_top=(vs_base=base+2)+1;
  562.     Ltype_of();
  563.     vs_top=sup;
  564.     V53= vs_base[0];
  565.     base[2]= ((V53)==(VV[30])?Ct:Cnil);
  566.     vs_top=(vs_base=base+2)+1;
  567.     return;
  568. T153:;
  569.     if((V46!= VV[75]))goto T156;
  570.     if(type_of((V40))==t_character){
  571.     goto T157;}
  572.     base[2]= Cnil;
  573.     vs_top=(vs_base=base+2)+1;
  574.     return;
  575. T157:;
  576.     base[2]= (V40);
  577.     vs_top=(vs_base=base+2)+1;
  578.     Lstandard_char_p();
  579.     return;
  580. T156:;
  581.     if((V46!= VV[24]))goto T160;
  582.     if(type_of((V40))==t_character){
  583.     goto T161;}
  584.     base[2]= Cnil;
  585.     vs_top=(vs_base=base+2)+1;
  586.     return;
  587. T161:;
  588.     base[2]= (V40);
  589.     vs_top=(vs_base=base+2)+1;
  590.     Lstring_char_p();
  591.     return;
  592. T160:;
  593.     if((V46!= VV[13]))goto T164;
  594.     if(type_of((V40))==t_fixnum||type_of((V40))==t_bignum){
  595.     goto T165;}
  596.     base[2]= Cnil;
  597.     vs_top=(vs_base=base+2)+1;
  598.     return;
  599. T165:;
  600.     base[2]= (*(LnkLI76))((V40),(V43));
  601.     vs_top=(vs_base=base+2)+1;
  602.     return;
  603. T164:;
  604.     if((V46!= VV[59]))goto T167;
  605.     base[2]= (V40);
  606.     vs_top=(vs_base=base+2)+1;
  607.     (void) (*Lnk77)();
  608.     vs_top=sup;
  609.     if((vs_base[0])!=Cnil){
  610.     goto T168;}
  611.     base[2]= Cnil;
  612.     vs_top=(vs_base=base+2)+1;
  613.     return;
  614. T168:;
  615.     base[2]= (*(LnkLI76))((V40),(V43));
  616.     vs_top=(vs_base=base+2)+1;
  617.     return;
  618. T167:;
  619.     if((V46!= VV[60]))goto T171;
  620.     if(type_of((V40))==t_shortfloat||type_of((V40))==t_longfloat){
  621.     goto T172;}
  622.     base[2]= Cnil;
  623.     vs_top=(vs_base=base+2)+1;
  624.     return;
  625. T172:;
  626.     base[2]= (*(LnkLI76))((V40),(V43));
  627.     vs_top=(vs_base=base+2)+1;
  628.     return;
  629. T171:;
  630.     if((V46!= VV[31]))goto T174;
  631.     base[2]= (V40);
  632.     vs_top=(vs_base=base+2)+1;
  633.     Ltype_of();
  634.     vs_top=sup;
  635.     V54= vs_base[0];
  636.     if((V54)==(VV[31])){
  637.     goto T175;}
  638.     base[2]= Cnil;
  639.     vs_top=(vs_base=base+2)+1;
  640.     return;
  641. T175:;
  642.     base[2]= (*(LnkLI76))((V40),(V43));
  643.     vs_top=(vs_base=base+2)+1;
  644.     return;
  645. T174:;
  646.     if((V46!= VV[78])
  647.     && (V46!= VV[79])
  648.     && (V46!= VV[32]))goto T179;
  649.     base[2]= (V40);
  650.     vs_top=(vs_base=base+2)+1;
  651.     Ltype_of();
  652.     vs_top=sup;
  653.     V55= vs_base[0];
  654.     if((V55)==(VV[32])){
  655.     goto T180;}
  656.     base[2]= Cnil;
  657.     vs_top=(vs_base=base+2)+1;
  658.     return;
  659. T180:;
  660.     base[2]= (*(LnkLI76))((V40),(V43));
  661.     vs_top=(vs_base=base+2)+1;
  662.     return;
  663. T179:;
  664.     if((V46!= VV[63]))goto T184;
  665.     base[2]= (V40);
  666.     vs_top=(vs_base=base+2)+1;
  667.     Lcomplexp();
  668.     vs_top=sup;
  669.     if((vs_base[0])!=Cnil){
  670.     goto T185;}
  671.     base[2]= Cnil;
  672.     vs_top=(vs_base=base+2)+1;
  673.     return;
  674. T185:;
  675.     if(!(((V43))==Cnil)){
  676.     goto T188;}
  677.     base[2]= Ct;
  678.     vs_top=(vs_base=base+2)+1;
  679.     return;
  680. T188:;
  681.     base[3]= (V40);
  682.     vs_top=(vs_base=base+3)+1;
  683.     Lrealpart();
  684.     vs_top=sup;
  685.     base[2]= vs_base[0];
  686.     base[3]= car((V43));
  687.     vs_top=(vs_base=base+2)+2;
  688.     (void) (*Lnk73)();
  689.     vs_top=sup;
  690.     if((vs_base[0])!=Cnil){
  691.     goto T190;}
  692.     base[2]= Cnil;
  693.     vs_top=(vs_base=base+2)+1;
  694.     return;
  695. T190:;
  696.     base[2]= (V40);
  697.     vs_top=(vs_base=base+2)+1;
  698.     Limagpart();
  699.     vs_top=sup;
  700.     V40= vs_base[0];
  701.     V41= car((V43));
  702.     goto TTL;
  703. T184:;
  704.     if((V46!= VV[43]))goto T199;
  705.     if(!(type_of((V40))==t_cons||((V40))==Cnil)){
  706.     goto T200;}
  707.     base[2]= Ct;
  708.     vs_top=(vs_base=base+2)+1;
  709.     return;
  710. T200:;
  711.     base[2]= (type_of((V40))==t_vector||
  712. type_of((V40))==t_string||
  713. type_of((V40))==t_bitvector?Ct:Cnil);
  714.     vs_top=(vs_base=base+2)+1;
  715.     return;
  716. T199:;
  717.     if((V46!= VV[80]))goto T202;
  718.     if(type_of((V40))==t_string){
  719.     goto T203;}
  720.     base[2]= Cnil;
  721.     vs_top=(vs_base=base+2)+1;
  722.     return;
  723. T203:;
  724.     if(!(((V43))==Cnil)){
  725.     goto T205;}
  726.     base[2]= Ct;
  727.     vs_top=(vs_base=base+2)+1;
  728.     return;
  729. T205:;
  730.     V56= (*(LnkLI82))((V40));
  731.     base[2]= (*(LnkLI81))(/* INLINE-ARGS */V56,(V43));
  732.     vs_top=(vs_base=base+2)+1;
  733.     return;
  734. T202:;
  735.     if((V46!= VV[83]))goto T207;
  736.     if((type_of((V40))==t_bitvector)){
  737.     goto T208;}
  738.     base[2]= Cnil;
  739.     vs_top=(vs_base=base+2)+1;
  740.     return;
  741. T208:;
  742.     if(!(((V43))==Cnil)){
  743.     goto T210;}
  744.     base[2]= Ct;
  745.     vs_top=(vs_base=base+2)+1;
  746.     return;
  747. T210:;
  748.     V57= (*(LnkLI82))((V40));
  749.     base[2]= (*(LnkLI81))(/* INLINE-ARGS */V57,(V43));
  750.     vs_top=(vs_base=base+2)+1;
  751.     return;
  752. T207:;
  753.     if((V46!= VV[84]))goto T212;
  754.     base[2]= (V40);
  755.     vs_top=(vs_base=base+2)+1;
  756.     Lsimple_string_p();
  757.     vs_top=sup;
  758.     if((vs_base[0])!=Cnil){
  759.     goto T213;}
  760.     base[2]= Cnil;
  761.     vs_top=(vs_base=base+2)+1;
  762.     return;
  763. T213:;
  764.     if(!(((V43))==Cnil)){
  765.     goto T216;}
  766.     base[2]= Ct;
  767.     vs_top=(vs_base=base+2)+1;
  768.     return;
  769. T216:;
  770.     V58= (*(LnkLI82))((V40));
  771.     base[2]= (*(LnkLI81))(/* INLINE-ARGS */V58,(V43));
  772.     vs_top=(vs_base=base+2)+1;
  773.     return;
  774. T212:;
  775.     if((V46!= VV[85]))goto T218;
  776.     base[2]= (V40);
  777.     vs_top=(vs_base=base+2)+1;
  778.     Lsimple_bit_vector_p();
  779.     vs_top=sup;
  780.     if((vs_base[0])!=Cnil){
  781.     goto T219;}
  782.     base[2]= Cnil;
  783.     vs_top=(vs_base=base+2)+1;
  784.     return;
  785. T219:;
  786.     if(!(((V43))==Cnil)){
  787.     goto T222;}
  788.     base[2]= Ct;
  789.     vs_top=(vs_base=base+2)+1;
  790.     return;
  791. T222:;
  792.     V59= (*(LnkLI82))((V40));
  793.     base[2]= (*(LnkLI81))(/* INLINE-ARGS */V59,(V43));
  794.     vs_top=(vs_base=base+2)+1;
  795.     return;
  796. T218:;
  797.     if((V46!= VV[86]))goto T224;
  798.     base[2]= (V40);
  799.     vs_top=(vs_base=base+2)+1;
  800.     Lsimple_vector_p();
  801.     vs_top=sup;
  802.     if((vs_base[0])!=Cnil){
  803.     goto T225;}
  804.     base[2]= Cnil;
  805.     vs_top=(vs_base=base+2)+1;
  806.     return;
  807. T225:;
  808.     if(!(((V43))==Cnil)){
  809.     goto T228;}
  810.     base[2]= Ct;
  811.     vs_top=(vs_base=base+2)+1;
  812.     return;
  813. T228:;
  814.     V60= (*(LnkLI82))((V40));
  815.     base[2]= (*(LnkLI81))(/* INLINE-ARGS */V60,(V43));
  816.     vs_top=(vs_base=base+2)+1;
  817.     return;
  818. T224:;
  819.     if((V46!= VV[26]))goto T230;
  820.     if(((*(LnkLI87))((V40)))!=Cnil){
  821.     goto T231;}
  822.     base[2]= Cnil;
  823.     vs_top=(vs_base=base+2)+1;
  824.     return;
  825. T231:;
  826.     if(!(endp((V43)))){
  827.     goto T235;}
  828.     goto T233;
  829. T235:;
  830.     if(!((car((V43)))==(VV[17]))){
  831.     goto T237;}
  832.     goto T233;
  833. T237:;
  834.     base[2]= (V40);
  835.     vs_top=(vs_base=base+2)+1;
  836.     Larray_element_type();
  837.     vs_top=sup;
  838.     V61= vs_base[0];
  839.     V62= (*(LnkLI88))(car((V43)));
  840.     if(equal(V61,/* INLINE-ARGS */V62)){
  841.     goto T233;}
  842.     base[2]= Cnil;
  843.     vs_top=(vs_base=base+2)+1;
  844.     return;
  845. T233:;
  846.     if(!(endp(cdr((V43))))){
  847.     goto T241;}
  848.     base[2]= Ct;
  849.     vs_top=(vs_base=base+2)+1;
  850.     return;
  851. T241:;
  852.     if(!((cadr((V43)))==(VV[17]))){
  853.     goto T243;}
  854.     base[2]= Ct;
  855.     vs_top=(vs_base=base+2)+1;
  856.     return;
  857. T243:;
  858.     V63= (*(LnkLI82))((V40));
  859.     base[2]= (*(LnkLI81))(/* INLINE-ARGS */V63,cadr((V43)));
  860.     vs_top=(vs_base=base+2)+1;
  861.     return;
  862. T230:;
  863.     if((V46!= VV[22]))goto T245;
  864.     if(type_of((V40))==t_array||
  865. type_of((V40))==t_vector||
  866. type_of((V40))==t_string||
  867. type_of((V40))==t_bitvector){
  868.     goto T246;}
  869.     base[2]= Cnil;
  870.     vs_top=(vs_base=base+2)+1;
  871.     return;
  872. T246:;
  873.     if(!(endp((V43)))){
  874.     goto T250;}
  875.     goto T248;
  876. T250:;
  877.     if(!((car((V43)))==(VV[17]))){
  878.     goto T252;}
  879.     goto T248;
  880. T252:;
  881.     base[2]= (V40);
  882.     vs_top=(vs_base=base+2)+1;
  883.     Larray_element_type();
  884.     vs_top=sup;
  885.     V64= vs_base[0];
  886.     V65= (*(LnkLI88))(car((V43)));
  887.     if(equal(V64,/* INLINE-ARGS */V65)){
  888.     goto T248;}
  889.     base[2]= Cnil;
  890.     vs_top=(vs_base=base+2)+1;
  891.     return;
  892. T248:;
  893.     if(!(endp(cdr((V43))))){
  894.     goto T256;}
  895.     base[2]= Ct;
  896.     vs_top=(vs_base=base+2)+1;
  897.     return;
  898. T256:;
  899.     if(!((cadr((V43)))==(VV[17]))){
  900.     goto T258;}
  901.     base[2]= Ct;
  902.     vs_top=(vs_base=base+2)+1;
  903.     return;
  904. T258:;
  905.     V66= (*(LnkLI82))((V40));
  906.     base[2]= (*(LnkLI81))(/* INLINE-ARGS */V66,cadr((V43)));
  907.     vs_top=(vs_base=base+2)+1;
  908.     return;
  909. T245:;
  910.     V44= get((V42),VV[33],Cnil);
  911.     if(((V44))==Cnil){
  912.     goto T261;}
  913.     base[2]= (V40);
  914.     base[3]= (V44);
  915.     vs_top=(vs_base=base+2)+2;
  916.     (void) (*Lnk89)();
  917.     return;
  918. T261:;
  919.     if((get((V42),VV[34],Cnil))==Cnil){
  920.     goto T267;}
  921.     base[2]= get((V42),VV[34],Cnil);
  922.     {object V67;
  923.     V67= (V43);
  924.      vs_top=base+3;
  925.      while(!endp(V67))
  926.      {vs_push(car(V67));V67=cdr(V67);}
  927.     vs_base=base+3;}
  928.     super_funcall_no_event(base[2]);
  929.     vs_top=sup;
  930.     V41= vs_base[0];
  931.     goto TTL;
  932. T267:;
  933.     base[2]= Cnil;
  934.     vs_top=(vs_base=base+2)+1;
  935.     return;}}
  936.     }
  937. }
  938. /*    local entry for function NORMALIZE-TYPE    */
  939.  
  940. static object LI19(V69)
  941.  
  942. register object V69;
  943. {     VMB19 VMS19 VMV19
  944. TTL:;
  945.     {register object V70;
  946.     register object V71;
  947.     V70= Cnil;
  948.     V71= Cnil;
  949. T277:;
  950.     if(!(type_of((V69))!=t_cons)){
  951.     goto T281;}
  952.     V70= (V69);
  953.     V71= Cnil;
  954.     goto T279;
  955. T281:;
  956.     V70= car((V69));
  957.     V71= cdr((V69));
  958. T279:;
  959.     if((get((V70),VV[34],Cnil))==Cnil){
  960.     goto T290;}
  961.     base[0]= get((V70),VV[34],Cnil);
  962.     {object V72;
  963.     V72= (V71);
  964.      vs_top=base+1;
  965.      while(!endp(V72))
  966.      {vs_push(car(V72));V72=cdr(V72);}
  967.     vs_base=base+1;}
  968.     super_funcall_no_event(base[0]);
  969.     vs_top=sup;
  970.     V69= vs_base[0];
  971.     goto T278;
  972. T290:;
  973.     if(!(type_of((V69))!=t_cons)){
  974.     goto T296;}
  975.     {object V73 = make_cons((V69),Cnil);
  976.     VMR19(V73)}
  977. T296:;
  978.     {object V74 = (V69);
  979.     VMR19(V74)}
  980. T278:;
  981.     goto T277;}
  982. }
  983. /*    local entry for function KNOWN-TYPE-P    */
  984.  
  985. static object LI20(V76)
  986.  
  987. register object V76;
  988. {     VMB20 VMS20 VMV20
  989. TTL:;
  990.     if(!(type_of((V76))==t_cons)){
  991.     goto T299;}
  992.     V76= car((V76));
  993. T299:;
  994.     {register object x= (V76),V77= VV[35];
  995.     while(!endp(V77))
  996.     if(eql(x,V77->c.c_car)){
  997.     goto T303;
  998.     }else V77=V77->c.c_cdr;}
  999.     if((get((V76),VV[33],Cnil))==Cnil){
  1000.     goto T304;}
  1001. T303:;
  1002.     {object V78 = Ct;
  1003.     VMR20(V78)}
  1004. T304:;
  1005.     {object V79 = Cnil;
  1006.     VMR20(V79)}
  1007. }
  1008. /*    function definition for SUBTYPEP    */
  1009.  
  1010. static L21()
  1011. {register object *base=vs_base;
  1012.     register object *sup=base+VM21; VC21
  1013.     vs_reserve(VM21);
  1014.     {object V80;
  1015.     object V81;
  1016.     check_arg(2);
  1017.     V80=(base[0]);
  1018.     V81=(base[1]);
  1019.     vs_top=sup;
  1020. TTL:;
  1021.     {object V82;
  1022.     object V83;
  1023.     object V84;
  1024.     object V85;
  1025.     object V86;
  1026.     object V87;
  1027.     object V88;
  1028.     V82= Cnil;
  1029.     V83= Cnil;
  1030.     V84= Cnil;
  1031.     V85= Cnil;
  1032.     V86= Cnil;
  1033.     V87= Cnil;
  1034.     V88= Cnil;
  1035.     V80= (*(LnkLI90))((V80));
  1036.     V81= (*(LnkLI90))((V81));
  1037.     if(!(equal((V80),(V81)))){
  1038.     goto T319;}
  1039.     base[2]= Ct;
  1040.     base[3]= Ct;
  1041.     vs_top=(vs_base=base+2)+2;
  1042.     return;
  1043. T319:;
  1044.     V82= car((V80));
  1045.     V83= car((V81));
  1046.     V84= cdr((V80));
  1047.     V85= cdr((V81));
  1048.     if(!(((V82))==(VV[36]))){
  1049.     goto T334;}
  1050.     {register object V89;
  1051.     object V90;
  1052.     V89= (V84);
  1053.     V90= car((V89));
  1054. T340:;
  1055.     if(!(endp((V89)))){
  1056.     goto T341;}
  1057.     goto T336;
  1058. T341:;
  1059.     base[3]= (V90);
  1060.     base[4]= (V81);
  1061.     vs_top=(vs_base=base+3)+2;
  1062.     (void) (*Lnk73)();
  1063.     vs_top=sup;
  1064.     if((vs_base[0])!=Cnil){
  1065.     goto T345;}
  1066.     base[3]= Cnil;
  1067.     base[4]= Ct;
  1068.     vs_top=(vs_base=base+3)+2;
  1069.     return;
  1070. T345:;
  1071.     V89= cdr((V89));
  1072.     V90= car((V89));
  1073.     goto T340;}
  1074. T336:;
  1075.     base[2]= Ct;
  1076.     base[3]= Ct;
  1077.     vs_top=(vs_base=base+2)+2;
  1078.     return;
  1079. T334:;
  1080.     if(!(((V82))==(VV[37]))){
  1081.     goto T360;}
  1082.     {register object V91;
  1083.     object V92;
  1084.     V91= (V84);
  1085.     V92= car((V91));
  1086. T366:;
  1087.     if(!(endp((V91)))){
  1088.     goto T367;}
  1089.     goto T362;
  1090. T367:;
  1091.     {object V93;
  1092.     object V94;
  1093.     base[3]= (V92);
  1094.     base[4]= (V81);
  1095.     vs_top=(vs_base=base+3)+2;
  1096.     (void) (*Lnk91)();
  1097.     if(vs_base>=vs_top){vs_top=sup;goto T375;}
  1098.     V93= vs_base[0];
  1099.     vs_base++;
  1100.     if(vs_base>=vs_top){vs_top=sup;goto T376;}
  1101.     V94= vs_base[0];
  1102.     vs_top=sup;
  1103.     goto T377;
  1104. T375:;
  1105.     V93= Cnil;
  1106. T376:;
  1107.     V94= Cnil;
  1108. T377:;
  1109.     if(((V93))!=Cnil){
  1110.     goto T371;}
  1111.     base[3]= (V93);
  1112.     base[4]= (V94);
  1113.     vs_top=(vs_base=base+3)+2;
  1114.     return;}
  1115. T371:;
  1116.     V91= cdr((V91));
  1117.     V92= car((V91));
  1118.     goto T366;}
  1119. T362:;
  1120.     base[2]= Ct;
  1121.     base[3]= Ct;
  1122.     vs_top=(vs_base=base+2)+2;
  1123.     return;
  1124. T360:;
  1125.     if(!(((V82))==(VV[38]))){
  1126.     goto T390;}
  1127.     {register object V95;
  1128.     object V96;
  1129.     V95= (V84);
  1130.     V96= car((V95));
  1131. T396:;
  1132.     if(!(endp((V95)))){
  1133.     goto T397;}
  1134.     goto T392;
  1135. T397:;
  1136.     {object V97;
  1137.     base[3]= (V96);
  1138.     base[4]= (V81);
  1139.     vs_top=(vs_base=base+3)+2;
  1140.     (void) (*Lnk91)();
  1141.     vs_top=sup;
  1142.     V97= vs_base[0];
  1143.     if(((V97))==Cnil){
  1144.     goto T401;}
  1145.     base[3]= Ct;
  1146.     base[4]= Ct;
  1147.     vs_top=(vs_base=base+3)+2;
  1148.     return;}
  1149. T401:;
  1150.     V95= cdr((V95));
  1151.     V96= car((V95));
  1152.     goto T396;}
  1153. T392:;
  1154.     base[2]= Cnil;
  1155.     base[3]= Cnil;
  1156.     vs_top=(vs_base=base+2)+2;
  1157.     return;
  1158. T390:;
  1159.     if(!(((V82))==(VV[39]))){
  1160.     goto T332;}
  1161.     if(!(((V83))==(VV[39]))){
  1162.     goto T419;}
  1163.     V80= car((V85));
  1164.     V81= car((V84));
  1165.     goto TTL;
  1166. T419:;
  1167.     V80= Ct;
  1168.     V81= list(3,VV[37],(V81),car((V84)));
  1169.     goto TTL;
  1170. T332:;
  1171.     if(!(((V83))==(VV[36]))){
  1172.     goto T429;}
  1173.     base[2]= Cnil;
  1174.     base[3]= Cnil;
  1175.     vs_top=(vs_base=base+2)+2;
  1176.     return;
  1177. T429:;
  1178.     if(!(((V83))==(VV[37]))){
  1179.     goto T434;}
  1180.     {register object V98;
  1181.     object V99;
  1182.     V98= (V85);
  1183.     V99= car((V98));
  1184. T440:;
  1185.     if(!(endp((V98)))){
  1186.     goto T441;}
  1187.     goto T436;
  1188. T441:;
  1189.     {object V100;
  1190.     base[3]= (V80);
  1191.     base[4]= (V99);
  1192.     vs_top=(vs_base=base+3)+2;
  1193.     (void) (*Lnk91)();
  1194.     vs_top=sup;
  1195.     V100= vs_base[0];
  1196.     if(((V100))==Cnil){
  1197.     goto T445;}
  1198.     base[3]= Ct;
  1199.     base[4]= Ct;
  1200.     vs_top=(vs_base=base+3)+2;
  1201.     return;}
  1202. T445:;
  1203.     V98= cdr((V98));
  1204.     V99= car((V98));
  1205.     goto T440;}
  1206. T436:;
  1207.     base[2]= Cnil;
  1208.     base[3]= Cnil;
  1209.     vs_top=(vs_base=base+2)+2;
  1210.     return;
  1211. T434:;
  1212.     if(!(((V83))==(VV[38]))){
  1213.     goto T461;}
  1214.     {register object V101;
  1215.     object V102;
  1216.     V101= (V85);
  1217.     V102= car((V101));
  1218. T467:;
  1219.     if(!(endp((V101)))){
  1220.     goto T468;}
  1221.     goto T463;
  1222. T468:;
  1223.     {object V103;
  1224.     object V104;
  1225.     base[3]= (V80);
  1226.     base[4]= (V102);
  1227.     vs_top=(vs_base=base+3)+2;
  1228.     (void) (*Lnk91)();
  1229.     if(vs_base>=vs_top){vs_top=sup;goto T476;}
  1230.     V103= vs_base[0];
  1231.     vs_base++;
  1232.     if(vs_base>=vs_top){vs_top=sup;goto T477;}
  1233.     V104= vs_base[0];
  1234.     vs_top=sup;
  1235.     goto T478;
  1236. T476:;
  1237.     V103= Cnil;
  1238. T477:;
  1239.     V104= Cnil;
  1240. T478:;
  1241.     if(((V103))!=Cnil){
  1242.     goto T472;}
  1243.     base[3]= (V103);
  1244.     base[4]= (V104);
  1245.     vs_top=(vs_base=base+3)+2;
  1246.     return;}
  1247. T472:;
  1248.     V101= cdr((V101));
  1249.     V102= car((V101));
  1250.     goto T467;}
  1251. T463:;
  1252.     base[2]= Ct;
  1253.     base[3]= Ct;
  1254.     vs_top=(vs_base=base+2)+2;
  1255.     return;
  1256. T461:;
  1257.     if(!(((V83))==(VV[39]))){
  1258.     goto T427;}
  1259.     V80= list(3,VV[38],(V80),car((V85)));
  1260.     V81= Cnil;
  1261.     goto TTL;
  1262. T427:;
  1263.     V86= (*(LnkLI92))((V80));
  1264.     V87= (*(LnkLI92))((V81));
  1265.     if(((V82))==(Cnil)){
  1266.     goto T499;}
  1267.     if(((V83))==(Ct)){
  1268.     goto T499;}
  1269.     if(!(((V83))==(VV[40]))){
  1270.     goto T500;}
  1271. T499:;
  1272.     base[2]= Ct;
  1273.     base[3]= Ct;
  1274.     vs_top=(vs_base=base+2)+2;
  1275.     return;
  1276. T500:;
  1277.     if(!(((V83))==(Cnil))){
  1278.     goto T509;}
  1279.     base[2]= Cnil;
  1280.     base[3]= (V86);
  1281.     vs_top=(vs_base=base+2)+2;
  1282.     return;
  1283. T509:;
  1284.     if(!(((V82))==(Ct))){
  1285.     goto T514;}
  1286.     base[2]= Cnil;
  1287.     base[3]= (V87);
  1288.     vs_top=(vs_base=base+2)+2;
  1289.     return;
  1290. T514:;
  1291.     if(!(((V82))==(VV[40]))){
  1292.     goto T519;}
  1293.     base[2]= Cnil;
  1294.     base[3]= (V87);
  1295.     vs_top=(vs_base=base+2)+2;
  1296.     return;
  1297. T519:;
  1298.     if(!(((V83))==(VV[41]))){
  1299.     goto T524;}
  1300.     {register object x= (V82),V105= VV[42];
  1301.     while(!endp(V105))
  1302.     if(eql(x,V105->c.c_car)){
  1303.     goto T528;
  1304.     }else V105=V105->c.c_cdr;
  1305.     goto T527;}
  1306. T528:;
  1307.     base[2]= Ct;
  1308.     base[3]= Ct;
  1309.     vs_top=(vs_base=base+2)+2;
  1310.     return;
  1311. T527:;
  1312.     base[2]= Cnil;
  1313.     base[3]= (V86);
  1314.     vs_top=(vs_base=base+2)+2;
  1315.     return;
  1316. T524:;
  1317.     if(!(((V83))==(VV[43]))){
  1318.     goto T534;}
  1319.     {register object x= (V82),V106= VV[44];
  1320.     while(!endp(V106))
  1321.     if(eql(x,V106->c.c_car)){
  1322.     goto T538;
  1323.     }else V106=V106->c.c_cdr;
  1324.     goto T537;}
  1325. T538:;
  1326.     base[2]= Ct;
  1327.     base[3]= Ct;
  1328.     vs_top=(vs_base=base+2)+2;
  1329.     return;
  1330. T537:;
  1331.     if(!(((V82))==(VV[22]))){
  1332.     goto T542;}
  1333.     if((cdr((V84)))==Cnil){
  1334.     goto T545;}
  1335.     if(!(type_of(cadr((V84)))==t_cons)){
  1336.     goto T545;}
  1337.     if((cdadr((V84)))!=Cnil){
  1338.     goto T545;}
  1339.     base[2]= Ct;
  1340.     base[3]= Ct;
  1341.     vs_top=(vs_base=base+2)+2;
  1342.     return;
  1343. T545:;
  1344.     base[2]= Cnil;
  1345.     base[3]= Ct;
  1346.     vs_top=(vs_base=base+2)+2;
  1347.     return;
  1348. T542:;
  1349.     base[2]= Cnil;
  1350.     base[3]= (V86);
  1351.     vs_top=(vs_base=base+2)+2;
  1352.     return;
  1353. T534:;
  1354.     if(!(((V82))==(VV[41]))){
  1355.     goto T558;}
  1356.     base[2]= Cnil;
  1357.     base[3]= (V87);
  1358.     vs_top=(vs_base=base+2)+2;
  1359.     return;
  1360. T558:;
  1361.     if(!(((V82))==(VV[43]))){
  1362.     goto T563;}
  1363.     base[2]= Cnil;
  1364.     base[3]= (V87);
  1365.     vs_top=(vs_base=base+2)+2;
  1366.     return;
  1367. T563:;
  1368.     if(!(((V83))==(VV[45]))){
  1369.     goto T568;}
  1370.     {register object x= (V82),V107= VV[46];
  1371.     while(!endp(V107))
  1372.     if(eql(x,V107->c.c_car)){
  1373.     goto T572;
  1374.     }else V107=V107->c.c_cdr;
  1375.     goto T571;}
  1376. T572:;
  1377.     base[2]= Cnil;
  1378.     base[3]= Ct;
  1379.     vs_top=(vs_base=base+2)+2;
  1380.     return;
  1381. T571:;
  1382.     if(((V86))==Cnil){
  1383.     goto T576;}
  1384.     base[2]= Ct;
  1385.     base[3]= Ct;
  1386.     vs_top=(vs_base=base+2)+2;
  1387.     return;
  1388. T576:;
  1389.     base[2]= Cnil;
  1390.     base[3]= Cnil;
  1391.     vs_top=(vs_base=base+2)+2;
  1392.     return;
  1393. T568:;
  1394.     if(!(((V82))==(VV[45]))){
  1395.     goto T583;}
  1396.     base[2]= Cnil;
  1397.     base[3]= (V87);
  1398.     vs_top=(vs_base=base+2)+2;
  1399.     return;
  1400. T583:;
  1401.     if(!(((V83))==(VV[47]))){
  1402.     goto T588;}
  1403.     {register object x= (V82),V108= VV[48];
  1404.     while(!endp(V108))
  1405.     if(eql(x,V108->c.c_car)){
  1406.     goto T592;
  1407.     }else V108=V108->c.c_cdr;
  1408.     goto T591;}
  1409. T592:;
  1410.     base[2]= Ct;
  1411.     base[3]= Ct;
  1412.     vs_top=(vs_base=base+2)+2;
  1413.     return;
  1414. T591:;
  1415.     base[2]= Cnil;
  1416.     base[3]= (V86);
  1417.     vs_top=(vs_base=base+2)+2;
  1418.     return;
  1419. T588:;
  1420.     if(!(((V83))==(VV[49]))){
  1421.     goto T598;}
  1422.     if(!(((V82))==(VV[49]))){
  1423.     goto T601;}
  1424.     base[2]= Ct;
  1425.     base[3]= Ct;
  1426.     vs_top=(vs_base=base+2)+2;
  1427.     return;
  1428. T601:;
  1429.     base[2]= Cnil;
  1430.     base[3]= (V86);
  1431.     vs_top=(vs_base=base+2)+2;
  1432.     return;
  1433. T598:;
  1434.     if(!(((V83))==(VV[50]))){
  1435.     goto T608;}
  1436.     if(!(((V82))==(VV[50]))){
  1437.     goto T611;}
  1438.     base[2]= Ct;
  1439.     base[3]= Ct;
  1440.     vs_top=(vs_base=base+2)+2;
  1441.     return;
  1442. T611:;
  1443.     base[2]= Cnil;
  1444.     base[3]= (V86);
  1445.     vs_top=(vs_base=base+2)+2;
  1446.     return;
  1447. T608:;
  1448.     if(!(((V83))==(VV[51]))){
  1449.     goto T618;}
  1450.     {register object x= (V82),V109= VV[52];
  1451.     while(!endp(V109))
  1452.     if(eql(x,V109->c.c_car)){
  1453.     goto T622;
  1454.     }else V109=V109->c.c_cdr;
  1455.     goto T621;}
  1456. T622:;
  1457.     base[2]= Ct;
  1458.     base[3]= Ct;
  1459.     vs_top=(vs_base=base+2)+2;
  1460.     return;
  1461. T621:;
  1462.     base[2]= Cnil;
  1463.     base[3]= (V86);
  1464.     vs_top=(vs_base=base+2)+2;
  1465.     return;
  1466. T618:;
  1467.     if(!(((V82))==(VV[51]))){
  1468.     goto T628;}
  1469.     base[2]= Cnil;
  1470.     base[3]= (V87);
  1471.     vs_top=(vs_base=base+2)+2;
  1472.     return;
  1473. T628:;
  1474.     if(!(((V83))==(VV[53]))){
  1475.     goto T633;}
  1476.     if(((V82))==(VV[53])){
  1477.     goto T635;}
  1478.     if((get((V82),VV[33],Cnil))==Cnil){
  1479.     goto T636;}
  1480. T635:;
  1481.     base[2]= Ct;
  1482.     base[3]= Ct;
  1483.     vs_top=(vs_base=base+2)+2;
  1484.     return;
  1485. T636:;
  1486.     base[2]= Cnil;
  1487.     base[3]= (V86);
  1488.     vs_top=(vs_base=base+2)+2;
  1489.     return;
  1490. T633:;
  1491.     if(!(((V82))==(VV[53]))){
  1492.     goto T645;}
  1493.     base[2]= Cnil;
  1494.     base[3]= (V87);
  1495.     vs_top=(vs_base=base+2)+2;
  1496.     return;
  1497. T645:;
  1498.     V88= get((V82),VV[33],Cnil);
  1499.     if(((V88))==Cnil){
  1500.     goto T650;}
  1501.     {object V110;
  1502.     V110= get((V83),VV[33],Cnil);
  1503.     if(((V110))==Cnil){
  1504.     goto T655;}
  1505.     {register object V111;
  1506.     V111= (V88);
  1507. T658:;
  1508.     if(((V111))!=Cnil){
  1509.     goto T659;}
  1510.     base[2]= Cnil;
  1511.     base[3]= Ct;
  1512.     vs_top=(vs_base=base+2)+2;
  1513.     return;
  1514. T659:;
  1515.     if(!(((V111))==(V110))){
  1516.     goto T665;}
  1517.     base[2]= Ct;
  1518.     base[3]= Ct;
  1519.     vs_top=(vs_base=base+2)+2;
  1520.     return;
  1521. T665:;
  1522.     V111= structure_ref((V111),VV[33],4);
  1523.     goto T658;}
  1524. T655:;
  1525.     base[2]= Cnil;
  1526.     base[3]= (V87);
  1527.     vs_top=(vs_base=base+2)+2;
  1528.     return;}
  1529. T650:;
  1530.     if((get((V83),VV[33],Cnil))==Cnil){
  1531.     goto T676;}
  1532.     base[2]= Cnil;
  1533.     base[3]= (V86);
  1534.     vs_top=(vs_base=base+2)+2;
  1535.     return;
  1536. T676:;
  1537.     {object V113= (V82);
  1538.     if((V113!= VV[29]))goto T680;
  1539.     {object V114= (V83);
  1540.     if((V114!= VV[29]))goto T681;
  1541.     base[2]= Ct;
  1542.     base[3]= Ct;
  1543.     vs_top=(vs_base=base+2)+2;
  1544.     return;
  1545. T681:;
  1546.     if((V114!= VV[13])
  1547.     && (V114!= VV[59]))goto T684;
  1548.     if(((*(LnkLI93))(VV[54],(V85)))==Cnil){
  1549.     goto T686;}
  1550.     base[2]= Ct;
  1551.     base[3]= Ct;
  1552.     vs_top=(vs_base=base+2)+2;
  1553.     return;
  1554. T686:;
  1555.     base[2]= Cnil;
  1556.     base[3]= Ct;
  1557.     vs_top=(vs_base=base+2)+2;
  1558.     return;
  1559. T684:;
  1560.     base[2]= Cnil;
  1561.     base[3]= (V87);
  1562.     vs_top=(vs_base=base+2)+2;
  1563.     return;}
  1564. T680:;
  1565.     if((V113!= VV[30]))goto T694;
  1566.     {object V115= (V83);
  1567.     if((V115!= VV[30]))goto T695;
  1568.     base[2]= Ct;
  1569.     base[3]= Ct;
  1570.     vs_top=(vs_base=base+2)+2;
  1571.     return;
  1572. T695:;
  1573.     if((V115!= VV[59]))goto T698;
  1574.     if(((*(LnkLI93))(VV[55],(V85)))==Cnil){
  1575.     goto T700;}
  1576.     base[2]= Ct;
  1577.     base[3]= Ct;
  1578.     vs_top=(vs_base=base+2)+2;
  1579.     return;
  1580. T700:;
  1581.     base[2]= Cnil;
  1582.     base[3]= Ct;
  1583.     vs_top=(vs_base=base+2)+2;
  1584.     return;
  1585. T698:;
  1586.     base[2]= Cnil;
  1587.     base[3]= (V87);
  1588.     vs_top=(vs_base=base+2)+2;
  1589.     return;}
  1590. T694:;
  1591.     if((V113!= VV[75]))goto T708;
  1592.     {register object x= (V83),V116= VV[56];
  1593.     while(!endp(V116))
  1594.     if(eql(x,V116->c.c_car)){
  1595.     goto T711;
  1596.     }else V116=V116->c.c_cdr;
  1597.     goto T710;}
  1598. T711:;
  1599.     base[2]= Ct;
  1600.     base[3]= Ct;
  1601.     vs_top=(vs_base=base+2)+2;
  1602.     return;
  1603. T710:;
  1604.     base[2]= Cnil;
  1605.     base[3]= (V87);
  1606.     vs_top=(vs_base=base+2)+2;
  1607.     return;
  1608. T708:;
  1609.     if((V113!= VV[24]))goto T716;
  1610.     {register object x= (V83),V117= VV[57];
  1611.     while(!endp(V117))
  1612.     if(eql(x,V117->c.c_car)){
  1613.     goto T719;
  1614.     }else V117=V117->c.c_cdr;
  1615.     goto T718;}
  1616. T719:;
  1617.     base[2]= Ct;
  1618.     base[3]= Ct;
  1619.     vs_top=(vs_base=base+2)+2;
  1620.     return;
  1621. T718:;
  1622.     base[2]= Cnil;
  1623.     base[3]= (V87);
  1624.     vs_top=(vs_base=base+2)+2;
  1625.     return;
  1626. T716:;
  1627.     if((V113!= VV[13]))goto T724;
  1628.     {register object x= (V83),V118= VV[58];
  1629.     while(!endp(V118))
  1630.     if(eql(x,V118->c.c_car)){
  1631.     goto T727;
  1632.     }else V118=V118->c.c_cdr;
  1633.     goto T726;}
  1634. T727:;
  1635.     base[2]= (*(LnkLI93))((V84),(V85));
  1636.     base[3]= Ct;
  1637.     vs_top=(vs_base=base+2)+2;
  1638.     return;
  1639. T726:;
  1640.     base[2]= Cnil;
  1641.     base[3]= (V87);
  1642.     vs_top=(vs_base=base+2)+2;
  1643.     return;
  1644. T724:;
  1645.     if((V113!= VV[59]))goto T732;
  1646.     if(!(((V83))==(VV[59]))){
  1647.     goto T734;}
  1648.     base[2]= (*(LnkLI93))((V84),(V85));
  1649.     base[3]= Ct;
  1650.     vs_top=(vs_base=base+2)+2;
  1651.     return;
  1652. T734:;
  1653.     base[2]= Cnil;
  1654.     base[3]= (V87);
  1655.     vs_top=(vs_base=base+2)+2;
  1656.     return;
  1657. T732:;
  1658.     if((V113!= VV[60]))goto T740;
  1659.     if(!(((V83))==(VV[60]))){
  1660.     goto T742;}
  1661.     base[2]= (*(LnkLI93))((V84),(V85));
  1662.     base[3]= Ct;
  1663.     vs_top=(vs_base=base+2)+2;
  1664.     return;
  1665. T742:;
  1666.     base[2]= Cnil;
  1667.     base[3]= (V87);
  1668.     vs_top=(vs_base=base+2)+2;
  1669.     return;
  1670. T740:;
  1671.     if((V113!= VV[31]))goto T748;
  1672.     {register object x= (V83),V119= VV[61];
  1673.     while(!endp(V119))
  1674.     if(eql(x,V119->c.c_car)){
  1675.     goto T751;
  1676.     }else V119=V119->c.c_cdr;
  1677.     goto T750;}
  1678. T751:;
  1679.     base[2]= (*(LnkLI93))((V84),(V85));
  1680.     base[3]= Ct;
  1681.     vs_top=(vs_base=base+2)+2;
  1682.     return;
  1683. T750:;
  1684.     base[2]= Cnil;
  1685.     base[3]= (V87);
  1686.     vs_top=(vs_base=base+2)+2;
  1687.     return;
  1688. T748:;
  1689.     if((V113!= VV[78])
  1690.     && (V113!= VV[79])
  1691.     && (V113!= VV[32]))goto T756;
  1692.     {register object x= (V83),V120= VV[62];
  1693.     while(!endp(V120))
  1694.     if(eql(x,V120->c.c_car)){
  1695.     goto T759;
  1696.     }else V120=V120->c.c_cdr;
  1697.     goto T758;}
  1698. T759:;
  1699.     base[2]= (*(LnkLI93))((V84),(V85));
  1700.     base[3]= Ct;
  1701.     vs_top=(vs_base=base+2)+2;
  1702.     return;
  1703. T758:;
  1704.     base[2]= Cnil;
  1705.     base[3]= (V87);
  1706.     vs_top=(vs_base=base+2)+2;
  1707.     return;
  1708. T756:;
  1709.     if((V113!= VV[63]))goto T764;
  1710.     if(!(((V83))==(VV[63]))){
  1711.     goto T766;}{object V121;
  1712.     V121= car((V84));
  1713.     if(V121==Cnil)goto T770;
  1714.     V80= V121;
  1715.     goto T769;
  1716. T770:;}
  1717.     V80= Ct;
  1718. T769:;{object V122;
  1719.     V122= car((V85));
  1720.     if(V122==Cnil)goto T773;
  1721.     V81= V122;
  1722.     goto T772;
  1723. T773:;}
  1724.     V81= Ct;
  1725. T772:;
  1726.     goto TTL;
  1727. T766:;
  1728.     base[2]= Cnil;
  1729.     base[3]= (V87);
  1730.     vs_top=(vs_base=base+2)+2;
  1731.     return;
  1732. T764:;
  1733.     if((V113!= VV[26]))goto T777;
  1734.     if(((V83))==(VV[26])){
  1735.     goto T778;}
  1736.     if(!(((V83))==(VV[22]))){
  1737.     goto T779;}
  1738. T778:;
  1739.     if(endp((V84))){
  1740.     goto T784;}
  1741.     if(!((car((V84)))==(VV[17]))){
  1742.     goto T785;}
  1743. T784:;
  1744.     if(endp((V85))){
  1745.     goto T783;}
  1746.     if((car((V85)))==(VV[17])){
  1747.     goto T783;}
  1748.     base[2]= Cnil;
  1749.     base[3]= Ct;
  1750.     vs_top=(vs_base=base+2)+2;
  1751.     return;
  1752. T785:;
  1753.     if(endp((V85))){
  1754.     goto T783;}
  1755.     if((car((V85)))==(VV[17])){
  1756.     goto T783;}
  1757.     if(equal(car((V84)),car((V85)))){
  1758.     goto T783;}
  1759.     base[2]= Cnil;
  1760.     base[3]= Ct;
  1761.     vs_top=(vs_base=base+2)+2;
  1762.     return;
  1763. T783:;
  1764.     if(endp(cdr((V84)))){
  1765.     goto T804;}
  1766.     if(!((cadr((V84)))==(VV[17]))){
  1767.     goto T803;}
  1768. T804:;
  1769.     if(endp(cdr((V85)))){
  1770.     goto T808;}
  1771.     if(!((cadr((V85)))==(VV[17]))){
  1772.     goto T809;}
  1773. T808:;
  1774.     base[2]= Ct;
  1775.     base[3]= Ct;
  1776.     vs_top=(vs_base=base+2)+2;
  1777.     return;
  1778. T809:;
  1779.     base[2]= Cnil;
  1780.     base[3]= Ct;
  1781.     vs_top=(vs_base=base+2)+2;
  1782.     return;
  1783. T803:;
  1784.     if(endp(cdr((V85)))){
  1785.     goto T818;}
  1786.     if(!((cadr((V85)))==(VV[17]))){
  1787.     goto T817;}
  1788. T818:;
  1789.     base[2]= Ct;
  1790.     base[3]= Ct;
  1791.     vs_top=(vs_base=base+2)+2;
  1792.     return;
  1793. T817:;
  1794.     base[2]= (*(LnkLI81))(cadr((V84)),cadr((V85)));
  1795.     base[3]= Ct;
  1796.     vs_top=(vs_base=base+2)+2;
  1797.     return;
  1798. T779:;
  1799.     base[2]= Cnil;
  1800.     base[3]= (V87);
  1801.     vs_top=(vs_base=base+2)+2;
  1802.     return;
  1803. T777:;
  1804.     if((V113!= VV[22]))goto T828;
  1805.     if(!(((V83))==(VV[22]))){
  1806.     goto T830;}
  1807.     if(endp((V84))){
  1808.     goto T833;}
  1809.     if(!((car((V84)))==(VV[17]))){
  1810.     goto T834;}
  1811. T833:;
  1812.     if(endp((V85))){
  1813.     goto T832;}
  1814.     if((car((V85)))==(VV[17])){
  1815.     goto T832;}
  1816.     base[2]= Cnil;
  1817.     base[3]= Ct;
  1818.     vs_top=(vs_base=base+2)+2;
  1819.     return;
  1820. T834:;
  1821.     if(endp((V85))){
  1822.     goto T832;}
  1823.     if((car((V85)))==(VV[17])){
  1824.     goto T832;}
  1825.     if(equal(car((V84)),car((V85)))){
  1826.     goto T832;}
  1827.     base[2]= Cnil;
  1828.     base[3]= Ct;
  1829.     vs_top=(vs_base=base+2)+2;
  1830.     return;
  1831. T832:;
  1832.     if(endp(cdr((V84)))){
  1833.     goto T853;}
  1834.     if(!((cadr((V84)))==(VV[17]))){
  1835.     goto T852;}
  1836. T853:;
  1837.     if(endp(cdr((V85)))){
  1838.     goto T857;}
  1839.     if(!((cadr((V85)))==(VV[17]))){
  1840.     goto T858;}
  1841. T857:;
  1842.     base[2]= Ct;
  1843.     base[3]= Ct;
  1844.     vs_top=(vs_base=base+2)+2;
  1845.     return;
  1846. T858:;
  1847.     base[2]= Cnil;
  1848.     base[3]= Ct;
  1849.     vs_top=(vs_base=base+2)+2;
  1850.     return;
  1851. T852:;
  1852.     if(endp(cdr((V85)))){
  1853.     goto T867;}
  1854.     if(!((cadr((V85)))==(VV[17]))){
  1855.     goto T866;}
  1856. T867:;
  1857.     base[2]= Ct;
  1858.     base[3]= Ct;
  1859.     vs_top=(vs_base=base+2)+2;
  1860.     return;
  1861. T866:;
  1862.     base[2]= (*(LnkLI81))(cadr((V84)),cadr((V85)));
  1863.     base[3]= Ct;
  1864.     vs_top=(vs_base=base+2)+2;
  1865.     return;
  1866. T830:;
  1867.     base[2]= Cnil;
  1868.     base[3]= (V87);
  1869.     vs_top=(vs_base=base+2)+2;
  1870.     return;
  1871. T828:;
  1872.     if(((V86))==Cnil){
  1873.     goto T878;}
  1874.     base[2]= (((V82))==((V83))?Ct:Cnil);
  1875.     base[3]= Ct;
  1876.     vs_top=(vs_base=base+2)+2;
  1877.     return;
  1878. T878:;
  1879.     base[2]= Cnil;
  1880.     base[3]= Cnil;
  1881.     vs_top=(vs_base=base+2)+2;
  1882.     return;}}
  1883.     }
  1884. }
  1885. /*    local entry for function SUB-INTERVAL-P    */
  1886.  
  1887. static object LI22(V125,V126)
  1888.  
  1889. register object V125;register object V126;
  1890. {     VMB22 VMS22 VMV22
  1891. TTL:;
  1892.     {register object V127;
  1893.     register object V128;
  1894.     register object V129;
  1895.     register object V130;
  1896.     V127= Cnil;
  1897.     V128= Cnil;
  1898.     V129= Cnil;
  1899.     V130= Cnil;
  1900.     if(!(endp((V125)))){
  1901.     goto T886;}
  1902.     V127= VV[17];
  1903.     V128= VV[17];
  1904.     goto T884;
  1905. T886:;
  1906.     if(!(endp(cdr((V125))))){
  1907.     goto T892;}
  1908.     V127= car((V125));
  1909.     V128= VV[17];
  1910.     goto T884;
  1911. T892:;
  1912.     V127= car((V125));
  1913.     V128= cadr((V125));
  1914. T884:;
  1915.     if(!(endp((V126)))){
  1916.     goto T902;}
  1917.     V129= VV[17];
  1918.     V130= VV[17];
  1919.     goto T900;
  1920. T902:;
  1921.     if(!(endp(cdr((V126))))){
  1922.     goto T908;}
  1923.     V129= car((V126));
  1924.     V130= VV[17];
  1925.     goto T900;
  1926. T908:;
  1927.     V129= car((V126));
  1928.     V130= cadr((V126));
  1929. T900:;
  1930.     if(!(((V127))==(VV[17]))){
  1931.     goto T918;}
  1932.     if(((V129))==(VV[17])){
  1933.     goto T916;}
  1934.     {object V131 = Cnil;
  1935.     VMR22(V131)}
  1936. T918:;
  1937.     {object V132;
  1938.     V132= (((V129))==(VV[17])?Ct:Cnil);
  1939.     if(((V132))==Cnil){
  1940.     goto T924;}
  1941.     goto T916;
  1942. T924:;
  1943.     if(!(type_of((V127))==t_cons)){
  1944.     goto T927;}
  1945.     if(!(type_of((V129))==t_cons)){
  1946.     goto T930;}
  1947.     if(!(number_compare(car((V127)),car((V129)))<0)){
  1948.     goto T916;}
  1949.     {object V133 = Cnil;
  1950.     VMR22(V133)}
  1951. T930:;
  1952.     if(!(number_compare(car((V127)),(V129))<0)){
  1953.     goto T916;}
  1954.     {object V134 = Cnil;
  1955.     VMR22(V134)}
  1956. T927:;
  1957.     {object V135;
  1958.     if(!(type_of((V129))==t_cons)){
  1959.     goto T938;}
  1960.     if(!(number_compare((V127),car((V129)))<=0)){
  1961.     goto T941;}
  1962.     {object V136 = Cnil;
  1963.     VMR22(V136)}
  1964. T941:;
  1965.     V135= Cnil;
  1966.     goto T936;
  1967. T938:;
  1968.     if(!(number_compare((V127),(V129))<0)){
  1969.     goto T944;}
  1970.     {object V137 = Cnil;
  1971.     VMR22(V137)}
  1972. T944:;
  1973.     V135= Cnil;
  1974. T936:;
  1975.     if(((V135))==Cnil){
  1976.     goto T916;}}}
  1977. T916:;
  1978.     if(!(((V128))==(VV[17]))){
  1979.     goto T950;}
  1980.     if(((V130))==(VV[17])){
  1981.     goto T948;}
  1982.     {object V138 = Cnil;
  1983.     VMR22(V138)}
  1984. T950:;
  1985.     {object V139;
  1986.     V139= (((V130))==(VV[17])?Ct:Cnil);
  1987.     if(((V139))==Cnil){
  1988.     goto T956;}
  1989.     goto T948;
  1990. T956:;
  1991.     if(!(type_of((V128))==t_cons)){
  1992.     goto T959;}
  1993.     if(!(type_of((V130))==t_cons)){
  1994.     goto T962;}
  1995.     if(!(number_compare(car((V128)),car((V130)))>0)){
  1996.     goto T948;}
  1997.     {object V140 = Cnil;
  1998.     VMR22(V140)}
  1999. T962:;
  2000.     if(!(number_compare(car((V128)),(V130))>0)){
  2001.     goto T948;}
  2002.     {object V141 = Cnil;
  2003.     VMR22(V141)}
  2004. T959:;
  2005.     {object V142;
  2006.     if(!(type_of((V130))==t_cons)){
  2007.     goto T970;}
  2008.     if(!(number_compare((V128),car((V130)))>=0)){
  2009.     goto T973;}
  2010.     {object V143 = Cnil;
  2011.     VMR22(V143)}
  2012. T973:;
  2013.     V142= Cnil;
  2014.     goto T968;
  2015. T970:;
  2016.     if(!(number_compare((V128),(V130))>0)){
  2017.     goto T976;}
  2018.     {object V144 = Cnil;
  2019.     VMR22(V144)}
  2020. T976:;
  2021.     V142= Cnil;
  2022. T968:;
  2023.     if(((V142))==Cnil){
  2024.     goto T948;}}}
  2025. T948:;
  2026.     {object V145 = Ct;
  2027.     VMR22(V145)}}
  2028. }
  2029. /*    local entry for function IN-INTERVAL-P    */
  2030.  
  2031. static object LI23(V148,V149)
  2032.  
  2033. register object V148;register object V149;
  2034. {     VMB23 VMS23 VMV23
  2035. TTL:;
  2036.     {register object V150;
  2037.     register object V151;
  2038.     V150= Cnil;
  2039.     V151= Cnil;
  2040.     if(!(endp((V149)))){
  2041.     goto T982;}
  2042.     V150= VV[17];
  2043.     V151= VV[17];
  2044.     goto T980;
  2045. T982:;
  2046.     if(!(endp(cdr((V149))))){
  2047.     goto T988;}
  2048.     V150= car((V149));
  2049.     V151= VV[17];
  2050.     goto T980;
  2051. T988:;
  2052.     V150= car((V149));
  2053.     V151= cadr((V149));
  2054. T980:;
  2055.     {object V152;
  2056.     V152= (((V150))==(VV[17])?Ct:Cnil);
  2057.     if(((V152))==Cnil){
  2058.     goto T999;}
  2059.     goto T996;
  2060. T999:;
  2061.     if(!(type_of((V150))==t_cons)){
  2062.     goto T1002;}
  2063.     if(!(number_compare((V148),car((V150)))<=0)){
  2064.     goto T996;}
  2065.     {object V153 = Cnil;
  2066.     VMR23(V153)}
  2067. T1002:;
  2068.     {object V154;
  2069.     if(!(number_compare((V148),(V150))<0)){
  2070.     goto T1008;}
  2071.     {object V155 = Cnil;
  2072.     VMR23(V155)}
  2073. T1008:;
  2074.     V154= Cnil;
  2075.     if(((V154))==Cnil){
  2076.     goto T996;}}}
  2077. T996:;
  2078.     {object V156;
  2079.     V156= (((V151))==(VV[17])?Ct:Cnil);
  2080.     if(((V156))==Cnil){
  2081.     goto T1015;}
  2082.     goto T1012;
  2083. T1015:;
  2084.     if(!(type_of((V151))==t_cons)){
  2085.     goto T1018;}
  2086.     if(!(number_compare((V148),car((V151)))>=0)){
  2087.     goto T1012;}
  2088.     {object V157 = Cnil;
  2089.     VMR23(V157)}
  2090. T1018:;
  2091.     {object V158;
  2092.     if(!(number_compare((V148),(V151))>0)){
  2093.     goto T1024;}
  2094.     {object V159 = Cnil;
  2095.     VMR23(V159)}
  2096. T1024:;
  2097.     V158= Cnil;
  2098.     if(((V158))==Cnil){
  2099.     goto T1012;}}}
  2100. T1012:;
  2101.     {object V160 = Ct;
  2102.     VMR23(V160)}}
  2103. }
  2104. /*    local entry for function MATCH-DIMENSIONS    */
  2105.  
  2106. static object LI24(V163,V164)
  2107.  
  2108. object V163;register object V164;
  2109. {     VMB24 VMS24 VMV24
  2110. TTL:;
  2111.     if(((V163))!=Cnil){
  2112.     goto T1029;}
  2113.     {object V165 = (((V164))==Cnil?Ct:Cnil);
  2114.     VMR24(V165)}
  2115. T1029:;
  2116.     if(!((car((V164)))==(VV[17]))){
  2117.     goto T1033;}
  2118.     goto T1031;
  2119. T1033:;
  2120.     if((car((V163)))==(car((V164)))){
  2121.     goto T1031;}
  2122.     {object V166 = Cnil;
  2123.     VMR24(V166)}
  2124. T1031:;
  2125.     V163= cdr((V163));
  2126.     V164= cdr((V164));
  2127.     goto TTL;
  2128. }
  2129. /*    local entry for function COERCE    */
  2130.  
  2131. static object LI25(V169,V170)
  2132.  
  2133. register object V169;object V170;
  2134. {     VMB25 VMS25 VMV25
  2135. TTL:;
  2136.     base[0]= (V169);
  2137.     base[1]= (V170);
  2138.     vs_top=(vs_base=base+0)+2;
  2139.     (void) (*Lnk73)();
  2140.     vs_top=sup;
  2141.     if((vs_base[0])==Cnil){
  2142.     goto T1038;}
  2143.     {object V171 = (V169);
  2144.     VMR25(V171)}
  2145. T1038:;
  2146.     V170= (*(LnkLI90))((V170));
  2147.     {object V172= car((V170));
  2148.     if((V172!= VV[41]))goto T1045;
  2149.     {register object V173;
  2150.     register object V174;
  2151.     V175 = make_fixnum(length((V169)));
  2152.     V174= one_minus(V175);
  2153.     V173= Cnil;
  2154. T1048:;
  2155.     if(!(number_compare((V174),small_fixnum(0))<0)){
  2156.     goto T1049;}
  2157.     {object V176 = (V173);
  2158.     VMR25(V176)}
  2159. T1049:;
  2160.     V177= elt((V169),fixint((V174)));
  2161.     V173= make_cons(/* INLINE-ARGS */V177,(V173));
  2162.     V174= one_minus((V174));
  2163.     goto T1048;}
  2164. T1045:;
  2165.     if((V172!= VV[22])
  2166.     && (V172!= VV[26]))goto T1057;
  2167.     if(endp(cdr((V170)))){
  2168.     goto T1058;}
  2169.     if(endp(cddr((V170)))){
  2170.     goto T1058;}
  2171.     if((caddr((V170)))==(VV[17])){
  2172.     goto T1058;}
  2173.     if(endp(cdr(caddr((V170))))){
  2174.     goto T1058;}
  2175.     base[0]= VV[64];
  2176.     vs_top=(vs_base=base+0)+1;
  2177.     Lerror();
  2178.     vs_top=sup;
  2179. T1058:;
  2180.     {register object V178;
  2181.     register object V179;
  2182.     register object V180;
  2183.     V181 = make_fixnum(length((V169)));
  2184.     V178= (VFUN_NARGS=2,(*(LnkLI94))((V170),V181));
  2185.     V180= make_fixnum(length((V169)));
  2186.     V179= small_fixnum(0);
  2187. T1071:;
  2188.     if(!(number_compare((V179),(V180))>=0)){
  2189.     goto T1072;}
  2190.     {object V182 = (V178);
  2191.     VMR25(V182)}
  2192. T1072:;
  2193.     V183= elt((V169),fixint((V179)));
  2194.     (void)(elt_set((V178),fixint((V179)),/* INLINE-ARGS */V183));
  2195.     V179= one_plus((V179));
  2196.     goto T1071;}
  2197. T1057:;
  2198.     if((V172!= VV[95]))goto T1080;
  2199.     base[0]= (V169);
  2200.     vs_top=(vs_base=base+0)+1;
  2201.     Lcharacter();
  2202.     vs_top=sup;
  2203.     {object V184 = vs_base[0];
  2204.     VMR25(V184)}
  2205. T1080:;
  2206.     if((V172!= VV[60]))goto T1082;
  2207.     base[0]= (V169);
  2208.     vs_top=(vs_base=base+0)+1;
  2209.     Lfloat();
  2210.     vs_top=sup;
  2211.     {object V185 = vs_base[0];
  2212.     VMR25(V185)}
  2213. T1082:;
  2214.     if((V172!= VV[31]))goto T1084;
  2215.     base[0]= (V169);
  2216.     base[1]= VV[65];
  2217.     vs_top=(vs_base=base+0)+2;
  2218.     Lfloat();
  2219.     vs_top=sup;
  2220.     {object V186 = vs_base[0];
  2221.     VMR25(V186)}
  2222. T1084:;
  2223.     if((V172!= VV[78])
  2224.     && (V172!= VV[79])
  2225.     && (V172!= VV[32]))goto T1087;
  2226.     base[0]= (V169);
  2227.     base[1]= VV[66];
  2228.     vs_top=(vs_base=base+0)+2;
  2229.     Lfloat();
  2230.     vs_top=sup;
  2231.     {object V187 = vs_base[0];
  2232.     VMR25(V187)}
  2233. T1087:;
  2234.     if((V172!= VV[63]))goto T1090;
  2235.     if((cdr((V170)))==Cnil){
  2236.     goto T1091;}
  2237.     if((cadr((V170)))==Cnil){
  2238.     goto T1091;}
  2239.     if(!((cadr((V170)))==(VV[17]))){
  2240.     goto T1092;}
  2241. T1091:;
  2242.     base[1]= (V169);
  2243.     vs_top=(vs_base=base+1)+1;
  2244.     Lrealpart();
  2245.     vs_top=sup;
  2246.     base[0]= vs_base[0];
  2247.     base[2]= (V169);
  2248.     vs_top=(vs_base=base+2)+1;
  2249.     Limagpart();
  2250.     vs_top=sup;
  2251.     base[1]= vs_base[0];
  2252.     vs_top=(vs_base=base+0)+2;
  2253.     Lcomplex();
  2254.     vs_top=sup;
  2255.     {object V188 = vs_base[0];
  2256.     VMR25(V188)}
  2257. T1092:;
  2258.     base[1]= (V169);
  2259.     vs_top=(vs_base=base+1)+1;
  2260.     Lrealpart();
  2261.     vs_top=sup;
  2262.     V189= vs_base[0];
  2263.     base[0]= (*(LnkLI96))(V189,cadr((V170)));
  2264.     base[2]= (V169);
  2265.     vs_top=(vs_base=base+2)+1;
  2266.     Limagpart();
  2267.     vs_top=sup;
  2268.     V190= vs_base[0];
  2269.     base[1]= (*(LnkLI96))(V190,cadr((V170)));
  2270.     vs_top=(vs_base=base+0)+2;
  2271.     Lcomplex();
  2272.     vs_top=sup;
  2273.     {object V191 = vs_base[0];
  2274.     VMR25(V191)}
  2275. T1090:;
  2276.     base[0]= VV[67];
  2277.     base[1]= (V169);
  2278.     base[2]= (V170);
  2279.     vs_top=(vs_base=base+0)+3;
  2280.     Lerror();
  2281.     vs_top=sup;
  2282.     {object V192 = vs_base[0];
  2283.     VMR25(V192)}}
  2284. }
  2285. /*    function definition for WARN-VERSION    */
  2286.  
  2287. static L26()
  2288. {register object *base=vs_base;
  2289.     register object *sup=base+VM26; VC26
  2290.     vs_reserve(VM26);
  2291.     {object V193;
  2292.     check_arg(1);
  2293.     V193=(base[0]);
  2294.     vs_top=sup;
  2295. TTL:;
  2296.     if(symbol_value(VV[68])==Cnil){
  2297.     base[1]= Cnil;
  2298.     vs_top=(vs_base=base+1)+1;
  2299.     return;}
  2300.     if(((eql((V193),symbol_value(VV[68]))?Ct:Cnil))==Cnil){
  2301.     goto T1111;}
  2302.     base[1]= Cnil;
  2303.     vs_top=(vs_base=base+1)+1;
  2304.     return;
  2305. T1111:;
  2306.     if(symbol_value(VV[69])==Cnil){
  2307.     base[1]= Cnil;
  2308.     vs_top=(vs_base=base+1)+1;
  2309.     return;}
  2310.     base[1]= Ct;
  2311.     base[2]= VV[70];
  2312.     base[3]= (V193);
  2313.     vs_top=(vs_base=base+1)+3;
  2314.     Lformat();
  2315.     return;
  2316.     }
  2317. }
  2318. static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,2,ap);} /* COERCE */
  2319. static object  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[94],&LnkLI94,ap);} /* MAKE-SEQUENCE */
  2320. static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],&LnkLI93,2,ap);} /* SUB-INTERVAL-P */
  2321. static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,1,ap);} /* KNOWN-TYPE-P */
  2322. static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* SUBTYPEP */
  2323. static object  LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],&LnkLI90,1,ap);} /* NORMALIZE-TYPE */
  2324. static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* STRUCTURE-SUBTYPE-P */
  2325. static object  LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],&LnkLI88,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
  2326. static object  LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[87],&LnkLI87,1,ap);} /* SIMPLE-ARRAY-P */
  2327. static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[82],&LnkLI82,1,ap);} /* ARRAY-DIMENSIONS */
  2328. static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,2,ap);} /* MATCH-DIMENSIONS */
  2329. static LnkT77(){ call_or_link(VV[77],&Lnk77);} /* RATIONALP */
  2330. static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,2,ap);} /* IN-INTERVAL-P */
  2331. static LnkT73(){ call_or_link(VV[73],&Lnk73);} /* TYPEP */
  2332. static LnkT72(){ call_or_link(VV[72],&Lnk72);} /* ARRAY-HAS-FILL-POINTER-P */
  2333. static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,1,ap);} /* FIND-DOCUMENTATION */
  2334.